home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_13_(11-1984).d64 / disk logger (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  62 lines
  1. 100 DIMT$(4)
  2. 110 PRINT"[147]   DISK FILE LOG -BY JIM BUTTERFIELD"
  3. 115 PRINT"    64 MODIFICATION COPYRIGHT 1982"
  4. 116 PRINT"         BY JERRY BRINSON"
  5. 120 DATA 169,0,162,4,149,98,202,16,251,169,160,133,97,162,2,32,198,255
  6. 130 DATA 230,101,208,10,230,100,208,6,230,99,208,2,230,98,32,228,255,165,144
  7. 140 DATA 240,235,32,204,255,198,97,6,101,38,100,38,99,38,98,16,244,96
  8. 150 FORJ=860TO914:READX:POKEJ,X:NEXTJ
  9. 160 DATA "XXX","SEQ","PRG","USR","REL"
  10. 170 FORJ=0TO4:READT$(J):NEXT
  11. 180 INPUT"PRINTER";Z$
  12. 190 Z=3:IFASC(Z$)=89THENZ=4:INPUT"DATE[160][160]*[157][157][157]";D$
  13. 200 INPUT"FILE CHECK";Z$
  14. 210 IFASC(Z$)=89THENF=1
  15. 220 OPEN4,Z:OPEN1,8,15,"I0":CLOSE1
  16. 230 G$="                 "
  17. 240 OPEN1,8,3,"$0"
  18. 250 FORJ=1TO142:GET#1,A$:NEXTJ
  19. 260 FORJ=1TO16:GET#1,A$:IFA$=CHR$(160)GOTO280
  20. 270 N$=N$+A$
  21. 280 NEXTJ:GET#1,A$,A$
  22. 290 FORJ=1TO2:GET#1,A$:IFA$=CHR$(160)GOTO310
  23. 300 I$=I$+A$
  24. 310 NEXTJ
  25. 320 FORJ=1TO92:GET#1,A$:NEXTJ
  26. 330 PRINT#4,"*** DISK LOG ***  ";D$
  27. 340 PRINT#4,"DISK: ";N$;"   ID: ";I$
  28. 350 M=M+1:GET#1,K$,T$,S$:IFS$=""THENS$=CHR$(0)
  29. 360 F$="":FORJ=1TO16:GET#1,A$:IFA$=CHR$(160)GOTO380
  30. 370 F$=F$+A$
  31. 380 NEXTJ
  32. 390 FORJ=1TO10:GET#1,A$:NEXTJ
  33. 400 L=0:IFA$<>""THENL=ASC(A$)
  34. 410 GET#1,A$:IFM<8THENGET#1,A$,A$:GOTO430
  35. 420 M=0
  36. 430 SW=ST:IFK$=""GOTO640
  37. 440 K=ASC(K$)-128:IFK<1ORK>4THENK=0
  38. 450 IFZ=3ANDF=1GOTO480
  39. 460 H$=MID$(STR$(ASC(T$)),2):PRINT#4,LEFT$(G$,3-LEN(H$));H$;
  40. 470 H$=MID$(STR$(ASC(S$)),2):PRINT#4,LEFT$(G$,3-LEN(H$));H$;" ";
  41. 480 PRINT#4,T$(K);
  42. 490 H$=MID$(STR$(L),2):PRINT#4,LEFT$(G$,4-LEN(H$));H$;" ";
  43. 500 PRINT#4,F$;LEFT$(G$,17-LEN(F$));
  44. 510 IFK=0GOTO630
  45. 520 IFK=2ORF=1THENOPEN2,8,4,"0:"+F$+","+T$(K)+",R"
  46. 530 A=0:IFK<>2GOTO570
  47. 540 GET#2,A$,B$:A=0:IFA$<>""THENA=ASC(A$)
  48. 550 B=0:IFB$<>""THENB=ASC(B$)
  49. 560 GOSUB700
  50. 570 IFF=0GOTO620
  51. 580 POKE785,92:POKE786,3:A=A+USR(0)
  52. 590 IFK<>2THENPRINT#4,A;"BYTES";:GOTO620
  53. 600 PRINT#4," ";:A%=A/256:A=A-A%*256:B=B+A%
  54. 610 GOSUB700
  55. 620 CLOSE2
  56. 630 PRINT#4
  57. 640 IFSW=0GOTO350
  58. 650 CLOSE1:CLOSE4:END
  59. 700 X=B/16:GOSUB710:X=A/16
  60. 710 FORJ=1TO2:X%=X:X=(X-X%)*16:IFX%>9THENX%=X%+7
  61. 720 PRINT#4,CHR$(X%+48);:NEXTJ:RETURN
  62.